home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CC32.ZIP / EDIT_INT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-12  |  1.0 KB  |  53 lines
  1. { Component Create for Delphi }
  2. { Sample form for property editor - Integer data type }
  3.  
  4. unit Edit_int;
  5.  
  6. interface
  7.  
  8. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  9.   StdCtrls, ExtCtrls, Mask;
  10.  
  11. type
  12.   TIntPropDlg = class(TForm)
  13.     OKBtn: TBitBtn;
  14.     CancelBtn: TBitBtn;
  15.     Bevel1: TBevel;
  16.     Edit1: TEdit;
  17.     procedure FormActivate(Sender: TObject);
  18.     procedure OKBtnClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.       { Transfer buffer for property's value }
  24.       Value : Integer;
  25.   end;
  26.  
  27. var
  28.   IntPropDlg: TIntPropDlg;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TIntPropDlg.FormActivate(Sender: TObject);
  35. var S : String;
  36. begin
  37.      Str(Value, S);
  38.      Edit1.Text := S;
  39.      Edit1.SelectAll
  40. end;
  41.  
  42. procedure TIntPropDlg.OKBtnClick(Sender: TObject);
  43. var I : Integer;
  44. begin
  45.      Val(Edit1.Text, Value, I);
  46.      if I <> 0 then
  47.         ModalResult := mrCancel
  48.      else
  49.          ModalResult := mrOK
  50. end;
  51.  
  52. end.
  53.